home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2002-11_2002_CSW_Side_B.d64 / calculate rectab (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  158b  |  10 lines
  1. 10 tb=22016
  2. 100 forx=3to255
  3. 200 y=65536/x
  4. 300 poketb+x,yand255
  5. 400 poketb+256+x,y/256
  6. 500 next
  7. 1000 poketb+0,0:poketb+256,0
  8. 2000 poketb+1,255:poketb+257,255
  9. 3000 poketb+2,0:poketb+258,128
  10.